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This Report Writer which is written in COBOL is designed to run on any 
L/TC system with card-in and/or magnetic record capability. The Report 
Writer provides a series of sub-routines to handle functions normally 
associated with any report leaving the programmer responsible for move- 
ment and calculating of data pertaining to his particular report. 

To obtain the complete applications COBOL program requires a merging 
of the L5000 REPORT WRITER (LSOLT magnetic tape) with a set of 
properly sequenced customized patch cards on a B3500. 



INTRODUCTION 



To effectively use this Report Writer, the programmer should be com- 
pletely familiar with all the sub-routines made available to him. Once 
these sub-routines are understood, the programmer is then left with pro- 
gram responsibility for only movement and calculation of data that is 
significant for any particular report. 

In determining whether the Report Writer will be any benefit to the pro- 
grammer, the program definition must have been completed. The three 
major categories which are part of any program definition are Input, 
Output, and Processing. Using these categories to evaluate the Report 
Writer, will enable the programmer to determine its applicability. 

Sub-routines included in the Report Writer provide for: 



Input: 



Output: 



Processing: 



The capability to read Magnetic Records through the 
console, the A4005 Magnetic Record reader and the 
ability to read punch card data through the A595 
Card Reader, or any combination of all three. 

The basic layout of column headings shown below illus- 
trates the maximum report design available with the 
Report Writer. A great deal of flexibility is provided by 
sub-routines for formatting the desired machine printed 
output. Complete flexibility is also provided for alteration 
of column headings layout according to specific user 
requirements. 

The programmer by merely using a PERFORM state- 
ment of a specific label is able to call in routines which 
provide for: Adding up to five levels of control totals, 
automatic clearing of these levels of totals, printing of 
heading lines, input and special read error conditions. 



BASIC LAYOUT OF COLUMN HEADINGS 



COLUMN 1 
Description 



COLUMN 2l COLUMN 3 



Ref 1 



Ref2 



COLUMN 4 


COLUMN 5 


COLUMN 6 


COLUMN 7 


COLUMN 8 


COLUMN 9 


Amount 1 


Amount 2 


Amount 3 


Amount 4 


Amount 5 


Amount 6 



BASIC LAYOUT OF SEQUENCE NUMBERS 



In using the Report Writer, it is important to be familiar with the sequence number 
structure utilized in its design. 

It is imperative that the integrity of the sequence numbers be maintained for the 
following reasons: (a) patch cards must have correct sequence numbers so as not to 
result in an improper overlay, (b) patch cards must be in correct sequence to 
avoid a fatal sequence error. 

Explanations in the following PROGRAMMING CONSIDERATIONS make reference to 
these sequence numbers which are defined in the chart shown below. 

001010 TO 001080 IDENTIFICATION DIVISION 



001090 TO 001130 



001150 


TO 


001230 


001250 


TO 


001330 


001350 


TO 


001410 


001430 


TO 


001500 


001510 






001530 


TO 


002550 


002560 


TO 


003580 


003590 


TO 


004110 


004120 


TO 


004610 


004630 


TO 


004690 


004700 


TO 


005690 


005700 


TO 


005750 


005760 


TO 


005850 


005860 


TO 


005910 


005930 


TO 


006000 


007020 






007030 






007040 


TO 


009820 


009830 






009850 


TO 


009880 


009890 


TO 


026000 


026010 






026020 







ENVIRONMENT DIVISION 

USED TO DEFINE PRINT POSITIONS FOR COLUMN HEADINGS 
USED TO DEFINE PRINT POSITIONS FOR LINE ITEMS 
USED TO DEFINE PRINT POSITIONS FOR TOTALS 
INPUT/OUTPUT SECTION 

DATA DIVISION 

MAGNETIC RECORD READER INPUT FILE 

80 COLUMN CARD INPUT FILE 

MAGNETIC RECORD CONSOLE INPUT FILE 

ANY ADDITIONAL FILES NEEDED BY PROGRAMMER 

WORKING STORAGE SECTION 

CAN BE USED FOR DECLARING ADDITIONAL WORK AREAS 

DOWN ACCUMULATION AREAS 

USED TO DEFINE COLUMN HEADINGS 

USED TO DEFINE TOTAL LEVEL DESCRIPTIONS 

USED TO DEFINE PRINT FORMATS FOR NUMERIC DATA 

PROCEDURE DIVISION 

DECLARATIVES 

USED FOR REPORT WRITER SUBROUTINES 

END DECLARATIVES 

INITIALIZATION 

CAN BE USED BY PROGRAMMER 

STOP RUN 

END OF JOB 
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INPUT FILE AND FIELD DEFINITIONS 

The programmer is responsible for assigning data names to the following files which 
are declared by the Report Writer in the data division. 

1. Magnetic Record Reader Input: 

Report Writer: 001530 FD LEDGER-IN-AR. 

001540 01 AUTO-READER-INPUT. 
001550 02 FILLER FMT IS 9. 

Programmer: 

If a different 01 level data-name (sequence 001540) is desired, this can easily 
be changed by creating a new card for sequence number 001540. For 02 level 
data-names the first sequence number must be 001550. Additional sequence 
numbers may be added up to 002550. If reader input is not required, no 
changes are necessary. 

Example: 

If in a specific report a customer Magnetic Record containing customer name, 
30, 60, 90 day balances and total balance is to be read for a report, the patch 
cards might be prepared as follows: 

001540 01 CUSTOMER-RECORD-CARD. 

001550 02 NAME PC IS X(23). 

001560 02 THIRTY-DAYS PC ZZZ,ZZZ.99. 

001570 02 SIXTY-DAYS PC ZZZ,ZZZ.99. 

001580 02 NINETY-DAYS PC ZZZ,ZZZ.99. 

001590 02 TOTAL-BALANCE PC ZZZ,ZZZ.99. 

2. Punched Card Input 

Report Writer: 002560 FD PUNCHED-CARD-IN 

002570 01 PUNCHED-CARD-INPUT 
002580 02 FILLER FMT IS 9. 

Programmer: 

If a different 01 level data-name (sequence 002570) is desired this can easily 
be changed by creating a new card for sequence number 002560. For 02 level 
data-names the first sequence number must be 002580. Additional sequence 
numbers may be added up to 003580. If punch-card input not required, no 
changes are necessary. 

Example: 

If in a specific report a card containing a part description, part no. and 
quantity on hand is to be read, the patch cards might be prepared as follows: 

002570 01 STOCK-RECORD 

002580 02 DESCRIPTION PC IS X(23) 

002590 02 PART-NUMBER PC IS Z(5) 

002600 02 QUANTITY-ON-HAND PC IS Z(5) 



3. Magnetic Record Input Via Console 

Report Writer: 003590 FD LEDGER-IN 

003600 01 CONSOLE-INPUT 
003610 02 FILLER FMT IS 9 

Programmer: 

If a different 01 level data-name (sequence 003600) is desired this can easily 
be changed by creating a new card for sequence number 003600. For 02 level 
data-names the first sequence number must be 0026100. Additional sequence 
numbers may be added up to 004110. If Magnetic record input via the console 
is not required, no changes are necessary. 

Example: 

If in a specific report a customer Magnetic Record containing customer name, 
30, 60, 90 day and total balance is to be read for a report, the patch cards 
might be prepared as follows: 

CUSTOMER-NAME PC IS X(23) 
THIRTY-DAYS PC IS ZZZ,ZZZ.99. . 
SIXTY-DAYS PC IS ZZZ,ZZZ.99. 
NINETY-DAYS PC IS ZZZ,ZZZ.99. 
TOTAL-BALANCE PC IS ZZZ,ZZZ.99. 



Declaration of Reference and Amount Fields 

Report Writer: 009860 MOVE 2 TO REFERENCES 

009870 MOVE 6 TO AMOUNTS 

Programmer: 

When using magnetic record input it is necessary to indicate the number of 
reference and amount fields required in report. This is required only for manual 
listing of magnetic record data in case of read error. 

Example: 

If only 1 Reference Column and 4 amount columns required; patch cards 
would be prepared as follows: 

009860 MOVE 1 TO REFERENCES 
009870 MOVE 4 TO AMOUNTS. 



003610 


02 


003620 


02 


003630 


02 


003640 


02 


003650 


02 



REPORT WRITER ROUTINES 



1. PRINT HEADINGS 



Statement: 
Function: 

Requirements: 



Example: 



Solution: 



PERFORM PRINT-HEADINGS 

This routine will print the appropriate column headings 
from memory. 

Change the VA clauses for sequence numbers 005770 to 005850 
(refer report writer COBOL listing) to contain the headings required 
If necessary the print positions can be changed by changing the relative 
cards in sequence 001150 to 001230. 

In a specific report the heading for the first column is "Customer 
Name" and it should be printed starting at position 8. 

To change column heading: 

Sequence number 005770 contains: 

005770 COLUMN-1-DESCR PC IS X(11) VA IS "DESCRIPTION" 

Patch card should contain: 

005770 COLUMN-1-DESCR PC IS X(13) VA IS "CUSTOMER NAME" 

To change position: 

Sequence number 001150 contains: 

001 150 COLUMN-1-POS IS POS 5. 



Patch card should contain: 
001150 COLUMN-1-POS IS POS 8. 



CLEAR TOTALS 
Statement: 
Function: 
Requirements: 



Example: 
Solution: 
PRINT DESCRIPTION 

a 



PERFORM CLEAR-TOTALS 

To clear all five levels of down accumulations. 

This statement is contained in the initialize section of the Report 
Writer. It may be used by the programmer at any place. 

To clear totals. 

PERFORM CLEAR-TOTALS 



From Buffer 

Due to execution speeds when moving alpha it is usually desirable to 
print alpha directly from buffer (Input file.) 

Example: To print description directly from buffer. 

POSITION TO DESCR-POS 
DISPLAY description. 
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b. From Work Area 



In cases where it is necessary to retain alpha information for subsequent 
use, it can be moved to ALPHA-WORK-AREA. A subroutine is provided 
for printing from this area. 

Statement: PERFORM PRINT-DESCRIPTION 

Function: Will print alpha data contained in an area defined as ALPHA- 

WORK-AREA, positioning as defined in sequence 001250. 

In the procedure division the programmer should move data 
to be printed to ALPHA-WORK-AREA. 

To print the customer name. (Using example of file declared 
on page 5). 

MOVE NAME TO ALPHA-WORK-AREA 
PERFORM PRINT-DESCRIPTION. 

PRINT FIRST REFERENCE. 



Requirements: 

Example: 

Solution: 



Statement: 
Function: 

Requirements: 



Example: 



Solution: 



PERFORM PRINT-REF-1. 

Will print the contents of the accumulator formatted by 
sequence 005930, at position defined in sequence 001260. 

The programmer should move the appropriate reference number 
to the accumulator. If a different format or different print 
position is desired, sequence 005930 (FORMAT) and sequence 
001260 (POSITION) would be changed. 

To print a part number contained in an area defined as PART- 
NUMBER in the first reference column. 

MOVE PART-NUMBER TO ACCUMULATOR. 
PERFORM PRINT-REF-1. 



PRINT SECOND REFERENCE 



Statement: 
Function: 

Requirements: 



Example: 



Solution: 



PERFORM PRINT-REF-2. 

Will print the contents of the accumulator formatted by sequence 
005940 at position defined in sequence 001270. 

The programmer should move the appropriate reference number 
to the accumulator. If a different format or different print position 
is desired, sequence 005940 (FORMAT) and sequence 001270 
(POSITION) would be changed. 

To print a warehouse number contained in an area defined as 
WAREHOUSE-NUMBER in the 2nd reference column. 

MOVE WAREHOUSE-NUMBER TO ACCUM. 
PERFORM PRINT-REF-2. 
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PRINTING AMOUNTS 



Statements: 



PERFORM 
PERFORM 
PERFORM 
PERFORM 
PERFORM 
PERFORM 



PRINT-AMT1. 
PRINT-AMT2. 
PRINT-AMT3. 
PRINT-AMT4. 
PRINT-AMT5. 
PRINT-AMT6. 



Functions: 



Requirements: 



Solution: 



These routines will print the contents of the accumulator 
formatted by sequence numbers 005950 to 006000 at positions 
defined in sequence numbers 001280 to 001330, as well as down 
accumulate to five levels of totals. 

If it is desired to change the format or print position of any of 
the above, sequence numbers 005950 to 006000 (FORMAT) and 
001280 to 001330 (POSITION) would be changed. 

To print a balance contained in an area defined as NINETY-DAY- 
BALANCE in the third amount column. 

MOVE NINETY-DAY-BALANCE TO ACCUM. 
PERFORM PRINT-AMT3. 



7. TO PRINT LEVEL TOTALS 



Statements: 



Function: 



PRINT-LEVEL 
PRINT-LEVEL 
PRINT-LEVEL 
PRINT-LEVEL 
PRINT-LEVEL 

Requirements: 



Example: 



Solution: 



PERFORM PRINT-LEVEL-ONE. 
PERFORM PRINT-LEVEL-TWO. 
PERFORM PRINT-LEVEL-THREE. 
PERFORM PRINT-LEVEL-FOUR. 
PERFORM PRINT-LEVEL-FIVE. 

These routines will print the appropriate level description defined 
in sequence numbers 005870 to 005910 at position defined in 
sequence number 001350. The appropriate totals, formatted by 
sequence numbers 005950 to 006000 will print at positions defined 
in sequence numbers 001360 to 001410. 

ONE will print level one and clear level one. 
TWO will print level two and clear levels one and two. 
THREE will print level three and clear levels one to three. 
FOUR will print level four and clear level one to four. 
FIVE will print level five and clear level one to five. 

The programmer should define the level descriptions by using 
sequence numbers 005870 to 005910. 

Description desired for first level totals is "DEPARTMENT 
1 TOTALS" 

Sequence number 005870 contains: 

005870 LEVEL-1-DESCR PC IS X(14) VA "LEVEL-1 -TOTALS" 

Patch card should contain: 

005870 LEVEL-1-DESCR PC IS X(19) VA "DEPARTMENT 1 TOTALS". 
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8. READING MAGNETIC RECORD THROUGH MAGNETIC RECORD READER 



10. 



Statement: 
Function: 



Requirements: 

Example: 
Solution: 



PERFORM READ-LEDGER-IN. 

This routine will read a magnetic record through the reader (or 
console if no reader). If a read error occurs on the magnetic 
record reader, the program will enable a console read with PKA 
1 enabled. 

PKA 1 is used for manual indexing of the report data when 
reading of data on the magnetic record is not possible. 

Files should be declared by programmer. (As defined under 
INPUT FILE AND FIELD DEFINITIONS). 

To read a customer record card. 

PERFORM READ-LEDGER-IN 



9. READING MAGNETIC RECORD THROUGH CONSOLE. 



Statement: 
Function: 



Requirements: 



Example: 
Solution: 
INITIALIZATION 
Function: 



PERFORM READ-LEDGER-IN-CONSOLE 

This routine will read a.magnetic record through the console. If 
a read error occurs, PKA 1 will be enabled. 

PKA 1 is used for manual indexing the report data when 
reading of data on the magnetic record is not possible. 

Files should be declared by programmer. (As defined under 
INPUT FILE AND FIELD DEFINITIONS). 

To read a customer record card. 

PERFORM READ-LEDGER-IN-CONSOLE. 



Requirements: 



Statements contained in this section provide for extablishment of 
the desired number of reference and amount columns and the 
clearing of all totals. 

Unless changed by the programmer, it will establish 2 reference 
and 6 amount field (see item 4 under INPUT FILE AND FIELD 
DEFINITIONS, page 7). 
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REQUIREMENTS FOR COMPILATION 



Load the L5000 Report Writer LSOLT tape on magnetic tape unit and place patch 
cards in card reader. The patch cards will be combined with the Report Writer on magne- 
tic tape and a full program printout and program tape will result. 

For a more detailed discussion of COBOL compiling on B3500 refer to L/TC COBOL 
Reference Manual. (Form 2002259.) 



COMPILATION CARD SEQUENCE 



? END 








PATCH CARDS 








$ LIST CODE TAPE 








? DATA SOURCE 












? EXECUTE L57305 
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Following is a sample program illustrating the use of the Report Writer. This program 
will produce a report that displays significant information from a Magnetic Unit Record. 
In this example, a Loan Status Report is prepared for use by management. 

The Magnetic Unit Record is read into memory using the Magnetic Record Reader. 
Selected information is accumulated and displayed. When a special code is found in a 
record, the accumulated totals will print. 

A Systems Definition chart is included identifying the processing requirements. A 
Systems Worksheet identifies the printing format and report headings. 

The Source Listing identifies the "patch" cards prepared by the programmer by printing 
the # sign along the left margin of the compiler printout. You will notice that there 
are areas where blank patch cards have been used to overlay areas of the Report 
Writer. This technique will eliminate areas of the program that are not needed and make 
available additional memory if required. This also illustrates why care must be taken 
to insure that proper sequence numbers should be assigned. 



Magnetic Unit Record Contents 



Name 

Address 

City, State, Zip Number 

Codes 

Account Number 

Telephone Number 

Date of Loan 

Special Codes 

Prior Interest 

Calander Interest 

Number of Notes 

Balance 

Last Transaction Date 
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DATA DESCRIPTION. 
OPERATION. 
OR 
SEGMENT 


A , W 
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ss 
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N I 
U c 
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R ' 

I I 

C 1 

(Alt 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media. 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card (PCI; 
Edge PunchBd Card (EPCI; 
Punched Tape (PT); 
Striped Ledger (SL>, 

Specify Reader; 
Memory (Ml; Data Com Receive. (R) 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 

Decisions 


p 

R 
1 

N 
T 
(•1 


P 
U 
N 
C 
H 
(•> 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CP)„ Line Printer (LP); 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. (Tl 


1 

N 

s 

T 
R 

u 
c 

T 
1 

O 
N 




Size | Min 


/viable 
Max |Norm 


Fixed Variable 






































































COMMERCIAL LOAN - REPORT 












USE REPORT WRITER 
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INITIALIZE 
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CLEAR MEMORY 
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ACCEPT & DISPLAY DATE 


N 


6 








KB 








6 








C.P. 






































4 


DISPLAY HEADINGS 


A 










M 
















C.P. 




4A 


ACCEPT LEDGER 














TEST FOR END CODE. IF ENDING 
GO TO SEG 15 
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DISPLAY NAME 


A 






23 




M S/L 












23 




c.p. 1 
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DISPLAY ACCT NO. 


N 






6 




M S/L 












6 




CP. 
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DISPLAY DATE LAST ACTIVE 


N 


6 








M S/L 












6 




C.P. 




8 


DISPLAY BALANCE 


N 






8 




M S/L 


STORE 










8 




C.P. 
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DISPLAY INT EARNINGS 














ADD THIS CAL YR TO PRIOR FOR 




















THIS YEAR 


N 






7 




M S/L 


10 - STORE 










7 




CP. 
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DISPLAY TOTAL INT EARN. 


N 






7 




M 


STORE 
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CP. 
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MOVE NUMBER OF NOTES 


N 
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M S/L 




















TO WORK - LEFT SIDE 
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MOVE NUMBER OF RENEWALS 
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TO WORK - RIGHT SIDE 
































DISPLAY WORK 


N 




2 


2 




M 










2 


2 




CP. 




14 


DISPLAY LOAN CODES 
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PRINT TOTALS 
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SYSTEMS DEFINITION CHART 

PAGE MKTG-2402 (Rev. 8/70) 



.00* 



NAME 

MRS FRED REED 
A J REIO 
FRED SMITH 
A WALKER 
TOTALS 



12 31 70 




COMMERCIAL 


LOAN REPORT 






ACCT NO 


DATE ACTIVE 


BALANCE 


EARNINGS 
CAL YR 


EARNINGS 
TO-DATE 


12 345 

12 346 

1 233 

12 345 


9 07 70 

5 19 71 

1 15 71 

12 24 70 


9,000.00 
2,000.00 
4,500.00 
3,000.00 
18,500.00 


75.00 
180.00 

15.00 
139.75 
409.75 




75.00 
180.00 

80.00 
139.75 
474.75 



NUMBER 
NOTES RENEWAL LOAN CODES 






2 





41 25 36 


1 


1 02 03 





1 25 14 



001010 IDENTIFICATION DIVISION. 

001020 PROGRAM-IO. COMMERCIAL LOAN REPORT 

001050 DATE WRITTEN, 

001060 DATE COMPILED. 

001061* COPYRIGHT 1970 BURROUGHS CORPORATION 

001062 SECURITY, THIS PROGRAM IS PROPRIETARY TO BURROUGHS CORPORATION. 

00106* DETROIT. MICHIGAN. AND IS NOT TO 8E REPRODUCED. OR 

001066 DISCLOSED WITHOUT WRITTEN PERMISSION, 

001070 REMARKS, BURROUGHS L/TC REPORT WRITER. 

OOIOSO**********************^****************************************** 

001090 ENVIRONMENT DIVISION, 

001100 CONFIGURATION SECTION. 

001110 SOURCE-COMPUTER. B3500. 

001120 OBJECT-COMPUTER. L5000. 

001130 SPECIAL-NAMES, 

001140******C0LUMN HEADINGS****** 



COLUMN-l-POS IS POS 118, 

C0LUMN-2-PQS IS POS 147. 

C0LUMN-3-P0S IS POS 157, 

C0LUMN-4-P0S IS POS 172, 

C0LUMN-5-P0S IS POS 186, 

C0LUMN-6-P0S IS POS 200, 

C0LUMN-7-P0S IS POS 214, 

CQLUMN-8-P0S IS POS 221, 

C0LUMN-9-P0S IS POS 230, 



001150 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240******LINES POSITIONS****** 

001250 DESCR-PQS IS POSITION 118. 

001260 REF-1-POS IS POSITION 147, 

001270 REF-2-P0S IS POSITION 158. 

001280 AMT-1-POS IS POSITION 171, 

001290 AMT-2-P05 IS POSITION 186, 

001300 AMT-3-P0S IS POSITION 200, 

001310 AMT-4-P0S IS POSITION 215, 

001320 AMT-5»P0S IS PUSITION 223. 



L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 

L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 



L5REP0RT 



001330 AMT-6-P0S IS POSITION 230. 

001 340***** "TOTALS POSITIONS******* 

001350 LEVEL-UESCR-POS IS POSITION 118. 

001360 AMT-1»T0T-P0S IS POSITION 171, 

001370 AMT-2-TOT-P0S IS POSITION 186, 

001380 AMT-3-TDT-P0S IS POSITION 200, 

001390 AMT-4-T0T-P0S IS POSITION 215. 

001400 AMT-5-TQT-P0S IS POSITION 223. 

001*10 AMT-6-T0T-P0S IS POSITION 240, 

001420 INPUT-OOTPUT SECTION, 

001430 FILE-CONTROL. 

0014A0 SELECT LEDGER-IN-AR ASSIGN TO AUTO-READER NO WORK-AREA. 

001450 SELECT LEDGER-IN ASSIGN TO LEDGER IN NO WORK-AREA, 

001460 SELECT PUNCHED'CARD- I N ASSIGN TO CARD-READER IN 

001470 NO WORK-AREA, 

001480****************************************************************** 

001490* FILES TO BE DEFINEO 8Y PRUGrAMMER. 

001500****************************************************************** 

001510 DATA DIVISION. 

001520 FILE SECTION. 

001530 FO LEOGER*IN-AR. 

001540 01 COML-LOAN-IN. 

001550 02 NAME-IN PC IS X(23>, 

001565 02 ADDRESS-IN PC IS XC23), 

001570 02 C-S-Z-1N PC IS X(23). 

001575 02 COOES-IN PC IS SJZZ.ZZ.ZZ, 

001560 02 ACTNO PC IS SZZZ.ZZZ. 

001585 02 TELNO PC IS SJ999i9999. 

001590 02 FIN-DATE PC IS SJZZ.ZZ. II, 

001595 02 CODE-4 PC IS X, 

001600 02 C00E-5 PC IS X, 

001605 02 C00E-6 PC IS X. 

001610 02 CODE-7 PC IS X. 

001615 02 RENEw-IN PC IS S99. 

001621 02 PRIOR-INT-IN FMT IS 59(6) PC IS Z / .ZZZ,99-, 



L5REP0RT 



L5REP0RT 
LbREPORT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
LbREPORT 
L5REP0RT 
L5REP0RT 
L5REP0RT 



001625 02 CAL-INT-IN FMT IS S9(6> PC IS 1,111,9')', 

001630 02 NU-QF-NOTES PC IS S99, 

001635 02 BAL-IN FMT IS 59(8} PC IS ZZZ , III , 99- , 

001640 02 LSTACT-IN PC IS SJZZ.ZZ.ZZ, 

001665 01 CQML-LOAN-OUT, 

001670 02 NAME-OUT PC IS XC23), 

001675 02 FILLER FMT IS 9(15), 

001785 01 CQML-LDGR-IN, 

001790 02 FILLER PC IS X{23), 

002560 FD PUNCHED-CARO-IN. 

002570 01 PUNCHED-CARD-INPUT. 

002580 02 FILLER FORMAT IS 9. 

003590 FD LEDGERMN, 

003600 01 CONSOLE-INPUT. 

003610 02 FILLER FORMAT IS 9, 

004620****************************************************************** 

oo«630 working-storage section, 

004640 77 COUNTER PC IS 9, 

004650 77 FIELD-NO PC IS 9, 

004660 77 ALPhAtHORK-AREA PC X(50), 

004670 77 REFERENCES PC IS 9, 

004680 77 AMOUNTS PC IS 9, 

004690 77 LINE-NO PC IS 99, 

005700 01 LEVEL-TOTALS, 



02 LEVEL-ONE PC IS SZZ.ZZZ.ZZZ.99- OCCURS 6 TIMES, 

02 LEVEL-TWO PC IS ill, III, Til, 99- OCCURS 6 TIMES, 

02 LEVEL-THREE PC IS SZZ.ZZZ.ZZZ.99- OCCURS 6 TIMES. 

02 LEVEL-FOUR PC IS SZZ.ZZZ, ZZZ, 99- OCCURS 6 TIMES, 

02 LEVEL-FIVE PC IS SZZ. ZZZ, ZZZ.99- OCCURS 6 TIMES, 

005760 01 COLUMN-HEADINGS. 

005770 02 COLUMN-1-DESCR PC IS X(4) VA IS "NAME", 

02 C0LUMN-2-DESCR PC IS X(7) VA IS "ACCT NO". 

02 C0LUMN-3-0ESCR PC IS X(li) VA IS "DATE ACTIVE", 

02 CULUMN-4-DESCR PC IS X(7) VA IS "BALANCE". 

02 COLUMN-b-DESCR PC IS X(6) VA IS "CAL YR", 



005710 
005720 
005730 
005740 
005750 



005780 
005790 
005800 
005810 
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L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
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L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
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f 005620 02 C0LUMN-6-DESCR PC IS X(7) VA IS "TQ-DATE". 

* 005830 02 C0LUMN-7-DESCR PC IS X(5) VA IS "NOTES". 

* 005840 02 C0LUMN-8-DESCR PC IS X(7) VA IS "RENEWAL". 

* 005850 02 C0LUMN-9-DESCR PC IS Xc 10) VA IS "LOAN COOES", 

005860 01 TOTAL-BESCRIPTIONS, L5REP0RT 

* 005870 02 LEVEL-1-DESCR PC IS X(6> VA IS "TOTALS", 

005880 02 LEVEL-2-DESCR PC X(14) VA "LEVEL 2 TOTALS", L5REP0RT 

005890 02 LEVEL-3-DE5CR PC XU4) VA "LEVEL 3 TOTALS". L5REPURT 

005900 02 LEVEL-4-DESCR PC XU4) VA "LEVEL 4 TOTALS", L5REP0RT 

005910 02 LEVEL-5-DESCR PC X(14) VA "LEVEL 5 TOTALS", L5REP0RT 

005920******PRINT FORMATS******, L5REP0RT 

005930 01 REF-l-PC PICTURE IS JZZZ.ZZZ, 

005940 01 REF-2-PC PICTURE IS JZZ.ZZ.ZZ, 

005950 01 AMT-l-PC PICTURE IS SZZ.ZZZ.99-. 

005960 01 AMT-2-PC PICTURE IS SZZ.ZZZ.99-. 

005970 01 AMJ-3-PC PICTURE IS SZZ.ZZZ.99-. 

005980 01 AMT-4-RC PICTURE IS Z9, 

005990 01 AMT-5-PC PICTURE IS Z9, 

006000 01 AMT-6-PC PICTURE IS JZZ.ZZ.ZZ. 

006010 01 WORK-AREAS, 

006020 02 OATE PC IS JZZ.ZZtZZ, 

006030 02 TRIGGER PC IS 9(6) VA IS 999999. 

006040 02 STORE-NO PC IS 999,999, 

006050 02 TOT-INT FMT IS 9(6) PC IS Z.ZZZ.99, 

007010****************************************************************** L5REP0RT 

007020 PROCEDURE DIVISION. L5REP0RT 

007030 DECLARATIVES. L5REP0RT 

007040 USE FOR PK-TA8LE PROGRAM-KEYS, L5REP0RT 

007050 GO TO PK1-INDEX-R0UTINE. L5REP0RT 

007060 NO-UP. L5REP0RT 

007070 NO-OP. L5REP0RT 

007080****************************************************************** L5REPQRT 

007090 USE FOR SUBROUTINE PRINT-HEADlNGS, L5REP0RT 

007100 POSITION TO COLUMN- 1-POS . L5REP0RT 

007110 DISPLAY COLUMN-1-DESCR. L5REPQRT 



007120 POSITION TO CQLUMN-2-P0S. 

007130 DISPLAY CQLUMN-2-DESCR, 

007140 POSITION TO C0LUMN-3-P0S. 

007150 DISPLAY C0LUMN-3-DESCR, 

007160 POSITION TO C0LUMN-4-PQS. 

007170 DISPLAY CULUMN-4-DESCR, 

007180 POSITION TO C0LUMN-5-POS , 

007190 DISPLAY C0LUMN-5-DESCR, 

007200 POSITION TO C0LUMN-6-PQS, 

007210 DISPLAY C0LUMN-6-DESCR, 

007220 POSITION TO CQLUMN-7-PQS , 

007230 DISPLAY COLUMN-7-0ESCR. 

007240 POSITION TO CQLUMN-S-POS , 

007250 DISPLAY COLUMN-8-0ESCR. 

007260 POSITION TO C0LUHN-9-P0S, 

007270 DISPLAY C0LUMN-9-DESCR. 
007260 USE FOR SUBROUTINE CLEAR-TOTALS, 
007290 CLEAR-LEVEL-5. 

007300 MOVE ZERO TO LEVEL-FIVE (1) 

007310 MOVE ZERO TO LEVEL-FIVE (2) 

007320 MOVE ZERO TO LEVEL-FIVE (3) 

007330 MOVE ZERO TO LEVEL-FIVE (4) 

007340 MOVE ZERO TO LEVEL-FIVE (5) 

007350 MOVE ZERO TO LEVEL-FIVE (6) 
007360 CLEAR-LEVEL-4, 

007370 MOVE ZERO TO LEVEL-FOUR (1) 

007380 MOVE ZERO TO LEVEL-FOUR (2) 

007390 MOVE ZERO TO LEVEL-FOUR (3) 

007400 MOVE ZERO TO LEVEL-FOUR (4) 

007410 MOVE ZERO TO LEVEL-FOUR (5) 

007420 MOVE ZERO TO LEVEL-FOUR (6) 
007430 CLEAR-LEVEL-3, 

007440 MOVE ZERO TO LEVEL-THREE (1), 

007450 MOVE ZERO TO LEVEL-THREE C2). 

007460 MOVE ZERO TO LEVEL-THREE (3), 



L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REPQRT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L&REPORT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REPQRT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REPURT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
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007470 
007180 
007190 
007500 
007510 
007520 
007530 
007540 
007550 
007560 
007570 
007580 
007590 
007600 
007610 
007620 
007630 
007640 
007650 
007660 
007670 
007680 
007690 
007700 
007710 
007720 
007730 
007740 
007750 
007760 
007770 
007780 
007790 
007800 
007810 



MOVE ZERO TU LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 

CLEAR-LEVEL-2. 

MOVE ZERO TO LEVEL 
MOVE ZEKO TO LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TU LEVEL 
MOVE ZERO TO LEVEL 

CLEAH-LEVEL-1. 

MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 
MOVE ZERO TO LEVEL 

USE FOR SUBROUTINE PRI 
POSITION TO DESCR- 
QISPLAY NAME-IN FR 

USE FOR SUbROUTINE PRI 
POSITION TO REF-1- 
DISPLAY ACCUM REF 

USE FOR SUBROUTINE PRI 
POS TO REF-2-P0S, 
DISPLAY ACCUM REF 

USE FOR SUBROUTINE PRI 
POS TO AMT-1-POS, 
DISPLAY ACCUM AMT 
ADD ACCUM TO LEVEL 



THREE (4), 

-THREE (5), 

THREE (6), 

•TWO CI), 

-TWO (2). 

-TWO C3). 

-TWO (4). 

-TWO (S). 

-TWO (6). 

-ONE (1). 

-ONE C2), 

-ONE (3), 

-ONE (4), 

-ONE (5). 

-ONE C6), 

NT-OESCRIPTION, 

POS, 

OM BUFFER. 

NT-REF-1, 

POS 

-1-PC, 

NT-REF-2. 

-2-PC, 
NT-AMT1, 

-1-PC, 
-ONE (1). 



L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
LSREPORT 
L5REP0RT 
L5REP0RT 
L5REP0RT 

L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
LSREPORT 
L5HEP0RT 



USE FOR SUBROUTINE PRINT-AMT2. 



L5REP0RT 



007820 
007830 
007840 
007850 
007860 
007870 
007880 
007890 
007900 
007910 
007920 
007930 
007940 
007950 
007960 
007970 
007980 
007990 
008000 
008010 
008020 
008030 
008040 
008050 
008060 
006070 
008080 
008090 
006100 
008110 
008120 
008130 
008140 
006150 
008160 



PDS TO AMT-2-P0S, 
DISPLAY ACCUM AMT-2-PC. 
ADO ACCUM TO LEVEL-ONE (2). 



USE FOR SUBROUTINE PRIIH-AMT3, 
POS TO AMT-3-P0S, 
OISPUY ACCUM AMT-3-PC. 
ADD ACCUM TO LEVEL-ONE (3 ) . 



use for subroutine print-amt4. 
pos to amt-4-p0s. 
display accum amt-«"pc, 



USE FOR SUBROUTINE PRINT-AMT5, 
POS TO AMT-5-P0S. 
OISPLAY ACCUM AMT-5-PC. 



USE FOR SUBROUTINE PRINT-AMT6. 
POS TO AMT-6-P0S, 
DISPLAY ACCUM AMT-6-PC, 



L5REP0RT 

L5REP0RT 
L&REPORT 



L5REP0RT 

L5REP0RT 
L5REP0HT 
L5REP0RT 



L5REP0RT 
L&REP0RT 
L5REP0RT 



L5REP0RT 
L5REP0HT 
L5REP0RT 



L5REP0RT 
L5REP0RT 
L5REP0RT 
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008170 
008180 
008190 
008200 
008210 
008220 
008230 
008240 
008250 
006260 
008270 
008280 
008290 
008300 
008310 
008320 
008330 
008340 
0083S0 
008360 
000370 
008380 
008390 
008400 
008410 
008420 
008430 
008440 
006450 
008460 
008470 
008480 
008490 
006500 
008510 



USE FOR SljbRQUTINE PRINT-LEVEL-ONE. 
POS TO LEVEL-DESCR-POS, 
DISPLAY LEVEL-1-DESCR. 
POS TO AMT-t-TQT-POS, 
MOVE LEVEL-ONE (1) TO ACCUM, 
DISPLAY ACCOM AMT-l-PC, 
POS TO AMT-2-T0T-P0S, 
MOVE LEVEL-ONE (2) TO ACCUM, 
DISPLAY ACCUM AMT-2-PCi 
POS TO AMT-3-T0T-P0S, 
MOVE LEVEL-ONE (3) TO ACCUM. 
DISPLAY ACCUM AMT-3-PC. 



(iO TO CLEAR-LEVEL-1. 
USE FOR SUBROUTINE PRINT-LEVEL-TWO, 
POS TO LEVEL-DESCR-POS. 
DISPLAY LEVEL-2-DESCR, 
POS TO AMT-1-TOT-POS, 
MOVE LEVEL-TWO (1) TO ACCUM, 
DISPLAY ACCUM AMT-1'PC. 
POS TO AMT-2-T0T-P0S, 
MOVE LEVEL-TWO (2) TO ACCUM, 
DISPLAY ACCUM AMT-2-PC. 



L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5HEP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 



L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 



006520 PQS TO AMT-3-T0T-P0S, 

008530 MOVE LEVEL-TWO <3) TO ACCUM, 

008540 DISPLAY ACCUM AMT-3-PC, 

008550 PQS TO AMT-4-T0T-P0S, 

008560 MOVE LEVEL-TWO <») TO ACCUM, 

008570 DISPLAY ACCUM AMT-4-PC. 

006580 POS TO AMT-5-T0T-P0S, 

008590 MOVE LEVEL-TWO (5) TO ACCUM, 

008600 DISPLAY ACCUM AMT-5-PC, 

008610 POS TO AMT-6-T0T-P0S, 

008620 MOVE LEVEL-TWO (6) TO ACCUM, 

008630 DISPLAY ACCUM AMT-6-PC, 

008640 GO TO CLEAR-LEVEL-2, 

008650 USE FOR SUBROUTINE PRINT-LEVEL-THREE, 

008660 POS TO LEVEL-DESCR-POS, 

008670 DISPLAY LEVEL-3-0E5CR. 

008680 POS TO AMT-l-TOT-POS. 

008690 MOVE LEVEL-THREE U> TO ACCUM, 

008700 DISPLAY ACCUM AMT-l-PC, 

008710 POS TO AMT-2-T0T-P0S, 

008720 MOVE LEVEL-THREE (2) TO ACCUM, 

006730 DISPLAY ACCUM AMT-2-PC. 

006740 POS TO AMT-3-T0T-P0S, 

008750 MOVE LEVEL-THREE (3) TO ACCUM. 

008760 DISPLAY ACCUM AMT-3-PC, 

008770 POS TO AMT-4-TQT-P0S, 

006780 MOVE LEVEL-THREE (4) TO ACCUM. 

008790 DISPLAY ACCUM AMT-4-PC, 

008800 POS TO AMT-5-TOT-P0S, 

008810 MOVE LEVEL-THREE (5) TO ACCUM, 

006820 DISPLAY ACCUM AMT-5-PC, 

008830 POS TO AMT-6-T0T-P0S 

008840 MOVE LEVEL-THREE (6) TO ACCUM. 

008850 DISPLAY ACCUM AMT-6-PC. 

008860 GO TO CLEAR-LE VEL-3 , 
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L5REP0RT 
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L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
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006870 USE FOR SUBROUTINE PRINT-LE VEL-FOUR . L5REP0RT 

008880 POS TO L£ VEL-DESCR-PQS, L5REP0RT 

006890 DISPLAY LEVEL-4-DESCR , LSREPORT 

006900 POS TU AMT-1-TOT-POS, LSREPORT 

006910 HOVE LEVEL-FOUR (1) TO aCCUM, L5REPDRT 

008920 OISPLAY ACCUM AMT-l-PC. L5REP0RT 

008930 POS TO AMT-2-T0T-P0S, L5REP0RT 

008940 MOVE LEVEL-FOUR (2) TO ACCUM, UbREPORT 

008950 DISPLAY ACCUM AMT-2-PC. L5REP0RT 

008960 POS TO AMT-3-T0T-PUS , L5REP0RT 

0089/0 MOVE LEVEL-FOUR (3) TO ACCUM, L5REP0RT 

006980 DISPLAY ACCUM AMT-3-PC. L5REP0RT 

008990 POS TO AMT-4-T0T-P0S . L5REP0RT 

009000 MOVE LEVEL-FOUR («) TO ACCUM. L5REP0RT 

009010 DISPLAY ACCUM AMT-4-PC, LSREPORT 

009020 POS TO AMT-5-T0T-P0S, L5REP0RT 

009030 MOVE LEVEL-FOUR (5) TO ACCUM, L5REP0RT 

009040 DISPLAY ACCUM AMT-5-PC. LSREPORT 

009050 POS TQ AMT6-T0T-P0S , L5REP0RT 

009060 MOVE LEVEL-FOUR C6) TO aCCUM, L5REP0RT 

009070 DISPLAY ACCUM AMT-6-PC, L5REP0RT 

009080 GO TU CLEAR-LEVEL-4 , LSREPORT 

009090 USE FOR SUBROUTINE PRINT-LEVEL-FIVE. LSREPORT 

009100 POS TO LEVEL-DESCR-POS, L5REP0RT 

009110 DISPLAY LE VEL-5-DESCR , LSREPORT 

009120 POS TO AMT-1-TOT-POS, L5REP0RT 

009130 MQVE LEVEL-FIVE (1) TQ ACCUM, LSREPORT 

009140 DISPLAY ACCUM AMT-l-PC, LSREPORT 

009150 POS TO AMT-2-T0T-P0S, LSREPORT 

009160 MOVE LEVEL-FIVE (2) TO ACCUM. L5REP0RT 

009170 DISPLAY ACCUM AMT-2-PC. L5REP0RT 

009180 POS TO AMT-3-T0T-P0S, LSREPORT 

009190 MOVE LEVEL-FIVE C3) TO ACCUM, L5REP0RT 

009200 DISPLAY ACCUM AMT-3-PC. LSREPORT 

009210 POS TO AMT-4-T0T-P0S, LSREPORT 



009220 MOVE LEVEL-FIVE (4) TO ACCUM, L5REP0RT 

009230 DISPLAY ACCUM AMT-4-PC. L5REP0RT 

009240 POS TO AMT-5-TOT-P0S . L5REP0RT 

009250 MOVE LEVEL-FIVE (5) TO ACCUM, L5REP0HT 

009260 DISPLAY ACCUM AMT-5-PC, L5REP0RT 

009270 POS TO AMT-6-T0T-P0S L5REP0RT 

009280 MOVE LEVEL-FIVE C6) TO ACCUM. L5REP0RT 

009290 DISPLAY ACCUM AMT-6-PC. L5REP0RT 

009300 GO TO CLEAR-LEVEL-5, L5REP0RT 

009310 USE FOR SUBROUTINE READ-PUNCHeD-CARD. L5REP0RT 

009320 READ pUNCHEO-CARD-I N, L5REP0RT 

009330 USE FOR SUBROUTINE READ-LEDGER- IN-CUNSOLE , L5REP0RT 

009340 REAO LEDGER-IN ON ERROR GO TO REAQ-ERRQR-RQUT I NE . LbREPORT 

009350 USE FOR SUBROUTINE REAO-LEOGER-IN . L5REP0RT 

009360 READ LEDGER-IN-AR ON ERRUr GO TU READ-ERROR-ROUTI NE , L5REP0RT 

009370 EXIT. L5REP0RT 

009380 READ-ERROR-ROUTINE. L5REP0RT 

009390 ENABLE PK1. L5REP0RT 

009400 MOVE 1 TO RCV-RDY. L5REP0RT 

009410 READ LEDGER-IN ON ERROR GO TO READ-ERROR-ROUTINE, L5REP0RT 

009420 MOVE e TO RCV-HOY. L5REP0RT 

009430 EXIT, L5REP0RT 

009440 PK1-INDEX-R0UTINE. L5REP0RT 

009450 POSITION TO OESCR-POS, L5REP0RT 

009460 ACCEPT 30 CHARACTERS FROM KEYBOARD-PRNTR , L5REPQRT 

009470 IF REFERENCES IS ZERO GO TO INDEX-AMT1. L5REP0RT 

009480 POS TO REF-1-POS, L5REP0RT 

009490 ACCEPT INTO ACCUMULATOR REF-l-PC FROM KEYBOARD-PRnTR, L5REP0RT 

009500 MOVE REFERENCES TO ACCUMULATOR . L5REP0RT 

009510 IF ACCUMULATOR (1) LESS THAN 2 THEN EXIT. L5REP0RT 

009520 POS TO REF-2-P0S. L5REP0RT 

009530 ACCEPT INTO ACCUMULATOR REF-2-PC FROM KEYBOARD-PRNTR, L5REP0RT 

009540 INDEX-AMT1. L5REP0RT 

009550 POSITION TO AMT-1-POS. L5REP0RT 

009560 ACCEPT INTO ACCUMULATOR AMT-l-PC. L5REP0RT 
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009570 

009560 

00959Q 

009600 

009610 

009620 

009630 

009640 

009650 

009660 

009670 

009680 

009690 

009700 

0097J0 

009720 

009730 

009740 

009750 

009760 

009770 

009780 

009790 

009600 

009810 

009620 

009830 

009840 

009850 

009660 

009870 

009880 

009890 

009900 

009910 



PERFORM PRINT-AMT1. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUMULATOR (1) LESS THAN 2 THEN EXIT, 
POS TO AMT-2-P0S, 

ACCEPT INTO ACCUMULATOR AMT-2-PC, 
PERFORM PRINT-AMT2. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUMULATOR (I) LESS THAN 3 THEN EXIT, 
POS TO AMT-3-P0S, 

ACCEPT INTO ACCUMULATOR AMT-3-PC, 
PERFORM PRINT-AMT3. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUMULATOR (1) LESS THAN 4 THEN EXIT, 
POS TO AMT-4-P0S, 

ACCEPT INTO ACCUMULATOR AMT-4-PC. 
PERFORM PRINT-AMT4, 
MOVE AMOUNTS TO ACCUMULAloR. 
IF ACCUMULATOR (1) LESS ThAN 5 THEN EXIT. 
POS TO AMT-5-PUS. 

ACCEPT INTO ACCUMULATOR AMT-5-PC. 
PERFURM PRINT-AMT5, 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUM (1) LESS THAN 6 THEN EXIT. 
POS TO AMT-6-PQS, 

ACCEPT INTO ACCUMULATOR AMT-6-PC, 
PERFORM PRINT-AMT6. 
END DECLARATIVES. 



********************* 



>f*******************************************, 



INITIALIZATION. 

PERFORM CLEAR-TOTALS, 
MOVE 2 TO REFERENCES. 
MOVE 6 TO AMOUNTS, 
POSITION TO COLUMN-l'POS, 
DISPLAY ".OO*". 
POSITION TO C0LUMN-2-P0S. 
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009920 ACCEPT DATE FROM KEYBOARD-PRNTR. 

009930 POSITION TO COLUMN-4-P0S, 

009940 DISPLAY "COMMERCIAL LOAN REPORT'S 

009950 ADVANCE RIGHT 2 LINES, 

009960 POSITION TO C0LUMN-5-P0S, 

009970 DISPLAY "EARNINGS", 

009980 POSITION TO C0LUMN-6-P0S, 

009990 DISPLAY "EARNINGS", 

010000 POSITION TO 216, 

010100 DISPLAY "NUMBER", 

010200 ADVANCE RIGHT 1 LINE, 

010300 PERFORM PRINT-HEADINGS. 

010400 ADVANCE RIGHT 2 LINES, 

010500 READ-LEDGER, 

010600 PERFORM READ-LEDGER'IN, 

010700 MOVE ACTNO TO ACCUM, 

0108'bO MOVE ACCUM TO STORE-NO. 

010900 IF STBRE-NO IS EQUAL TRIGGER ADVANCE RIGHT 3 LINES 

011000 PERFORM PRINT-LEVEL-ONE 

011100 STOP RUN, 

011200 PERFORM PRINT-DESCRIPTION, 

011300 MOVE STORE-NO TO ACCUM. 

01UO0 PERFORM PRINT-REF-1, 

011500 MOVE LSTACT-IN FROM BUFFER TO ACCUM, 

011600 PERFORM PRINT-REF-2, 

011700 MOVE BAL-IN FROM BUFFER TO ACCUM, 

011800 PERFORM PRINT-AMT1. 

011900 MOVE CAL-INT-IN FROM BUFFER TO TOT-INT, 

012000 PERFORM PRINT-AMTZ, 

012100 MOVE PRIOR-INT-IN FROM BUFFER TO ACCUM, 

012200 ADD TOT-INT TO ACCUM, 

012300 PERFORM PRINT-AMT3, 

012400 MOVE NO-OF-NOTES TO ACCUM, 

012500 PERFORM PRINT-AMT4, 

012600 MOVE RENEW-IN FROM BUFFER TO ACCUM, 



CO 

ro 



* 012700 


* 012800 


* 012900 


* 013000 


1 013100 


02601 


02602 



PERFORM PR1NT-AMT5. 

MOVE COUES-IN FROM BUFFER TO ACCOM. 
PERFORM PRINT-AMT6. 
ADVANCE RIGHT 1 LINE, 
GO TO READ-LEDGER, 
STOP RUN. 
END-OF-JOB, 
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COMPILE DATE 10/20/70 22:41 USING (SEP 70-06/06/06) SERIES-L COMPILER PROGRAM ID IS COMMER 

ELAPSED TIME IS 0318 SECONDS. 

ELAPSED TIME IS TOTAL CLOCK TIME. NOT TIME CHARGEABLE TO COMPILATION. 

0461 SYMBOLIC RECORDS COMPILED AT 086 RECORDS PER MINUTE. 




3: 



001010 

001020 

001050 

001060 

001062 

001064 

001066 

001070 

00 1 080* 

001090 

001 100 

001 110 

001120 

001130 

00 1 1 40* 

001150 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240* 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340* 

001350 

001360 

001370 

001380 

001390 

001400 

001410 

001420 

001430 

001440 

001450 

001460 

001470 

001480* 

001490* 

001500* 

001510 

001520 

001530 

001540 

001550 

002560 

002570 

002580 

003590 



IDENTIFICATION DIVISION. 

PROGRAM- ID. L/TC REPORT WRITER. 

DATE WRITTEN. 

DATE COMPILED. 

SECURITY. THIS PROGRAM IS/PROPRIETARY TO BURROUGHS CORPORATION, 

DETROIT, MICHIGAN, AND IS NOT TO BE REPRODUCED, OR 

DISCLOSED WITHOUT WRITTEN PERMISSION. 
REMARKS. BURROUGHS L/TC REPORT WRITER. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. , 

SOURCE-COMPUTER. B3500. 

OBJECT-COMPUTER. L5000. ' . 

SPECIAL-NAMES. 

*****COLUMN HEADINGS****** 

C0LUMN-1-P0S IS POS 5; 

COLUMN-2-P0S IS POS 27. 

C0LUMN-3-P0S IS POS 37. 

C0LUMN-4-P0S IS POS 47. 

C0LUMN-5-PQS IS POS 63. 

C0LUMN-6-P0S IS POS 78. 

C0LUMN-7-P0S IS POS 93. 

C0LUMN-8-P0S IS POS 108. 

C0LUMN-9-P0S IS POS 123. 
*****LINES POSITIONS****** 

DESCR-POS IS POSITION 2. 

REF-1-P0S IS POSITION 24. 

REF-2-P0S IS POSITION 34. 

AMT-.1-P0S IS POSITION 44. 

AMT-2-P0S IS POSITION 60. 

AMT-3-P0S IS POSITION 75. 

AMT-4-P0S IS POSITION 90. 

AMT-5-P0S IS POSITION 105. 

AMT-6-P0S IS POSITION 120. 
*****TOTALS POSITIONS******* 

LEVEL-DESCR-POS IS POSITION 2. 

AMT-1-T0T-P0S IS POSITION 44. 

AMT-2-T0T-P0S IS POSITION 60. 

AMT-3-TOT^POS IS POSITION 75. 

AMT-4-T0T-P0S IS POSITION 90. 

AMT-5-T0T-P0S IS POSITION 105. 

AMT-6-T0T-P0S IS POSITION 120. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL.. 

SELECT LEDGER- IN-AR ASSIGN TO AUTO-READER NO WORK-AREA. 

SELECT LEDGER-IN AS.SIGN TO LEDGER IN NO WORK-AREA. 

SELECT PUNCHEO-CARO-IN ASSIGN TO CARD-READER IN 
NO WORK-AREA. 



FILES TO BE DEFINED BY PROGRAMMER. 

DATA DIVISION. 

FILE SECTION. 

FD LEDGER-IN-AR. 

01 AUTO-READER- INPUT. 

02 FILLER FORMAT IS 9. 
FD PUNCHED-CARD-IN. 
01 PUNCHED-CARD- INPUT. 

02 FILLER FORMAT IS 9. 
FD LEDGER-IN. 
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003600 

003610 

004620* 

004630 

00461*0 

004650 

004660 

004670 

004680 

004690 

005700 

005710 

005720 

005730 

005740 

00-5750 

005760 

005770 

005780 

005790 

005800 

005810 

005820 

005830 

005840 

005850 

005860 

005870 

005880 
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005990 
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007030 

007040 

007050 
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01 CONSOLE-INPUT. 

02 FILLER FORMAT IS 9. 



WORKING-STORAGE SECTION. 

77 COUNTER PC IS 9, 

77 FIELD-NO PC IS 9. 

77 ALPHA-WORK-AREA PC X(50). 

77 REFERENCES PC IS 9. 

77 AMOUNTS PC IS 9. 

77 LINE-NO PC IS 99. 

01 LEVEL-TOTALS. 

02 LEVEL-ONE PC IS SZZ, 
02 LEVEL-TWO PC IS SZZ, 
02 LEVEL-THREE 
02 LEVEL-FOUR 
02 LEVEL-FIVE 

01 COLUMN-HEADINGS. 

02 C0LUMN-1-DESCR PC IS X( 
02 C0LUMN-2-DESCR PC IS X( 
02 C0LUMN-3-DESCR PC IS X( 
02 C0LUMN-4-DESCR PC IS X( 
02 C0LUMN-5-DESCR PC IS X( 
02 C0LUMN-6-DESCR PC IS X( 
02 C0LUMN-7-DESCR PC IS X( 
02 C0LUMN-8-DESCR PC IS X( 
02 C0LUMN-9-DESCR PC IS X( 

01 TOTAL-DESCRIPTIONS. 

02 LEVEL-1 -DESCR PC X(14) 
02 LEVEL-2-DESCR PC X(14) 
02 LEVEL-3-DESCR PC X( 14) 
02 LEVEL-4-DESCR PC X(14) 
02 LEVEL-5-DESCR PC X(l4) 

*****p R1 NT FORMATS**-***. 

01 REF-1 -PC PICTURE IS 9(9). 

01 REF-2-PC REDEFINES REF-1-PC 

01 AMT-t-PC REDEFINES REF-1-PC 

01 AMT-2-PC REDEFINES REF-1-PC 

01 AMT-3-PC REDEFINES REF-1-PC 

01 AMT-4-PC REDEFINES REF-l-PC 

01 AMT-5-PC REDEFINES REF-1-PC 

01 AMT-6-PC REDEFINES REF-l-PC 



ZZZ.ZZZ.99- OCCURS 6 TIMES. 

ZZZ.ZZZ.99- OCCURS 6 TIMES. 

PC IS SZZ.ZZZ.ZZZ.99- OCCURS 6 TIMES. 

PC IS SZZ.ZZZ.ZZZ.99- OCCURS 6 TIMES. 

PC IS SZZ,ZZZ,ZZZ.99- OCCURS 6 TIMES. 

11) VA IS 'DESCRIPTION' . 

5) VA IS 'REF 1' . 

5) VA IS 'REF 2 1 . 

8) VA IS 'AMOUNT 1' . 

8) VA IS 'AMOUNT 2' . 

3) VA IS 'AMOUNT 3' . 

8) VA IS 'AMOUNT 4' . 

8) VA IS 'AMOUNT 5' . 

8) VA IS 'AMOUNT 6' . 



VA 
VA 
VA 
VA 
VA 



'LEVEL 1 

'LEVEL 2 

'LEVEL 3 

' LEVEL 4 

'LEVEL 5 



TOTALS' . 
TOTALS' . 
TOTALS' . 
TOTALS' . 
TOTALS' . 



PICTURE IS 9(9). 

PICTURE IS SZZ.ZZZ.ZZZ.99- 

PICTURE IS SZZ.ZZZ.ZZZ.99- 

PICTURE IS SZZ.ZZZ.ZZZ.99- 

PICTURE IS SZZ.ZZZ.ZZZ.99- 

PICTURE IS SZZ.ZZZ.ZZZ.99- 

PICTURE IS SZZ.ZZZ.ZZZ.99- 



PROCEDURE DIVISION. 
DECLARATIVES. 

USE FOR PK-TABLE PROGRAM-KEYS. 

GO TO PK1-INDEX-R0UTINE. 

NO-OP. 

NO-OP. 



USE FOR SUBR 
POSITION 
DISPLAY 
POSITION 
DISPLAY 
POSITION 
DISPLAY 
POSITION 
DISPLAY 
POSITION 
DISPLAY 



OUTINE PRINT-HEADINGS. 

TO COLUMN- 1 -POS. 
COLUMN-1 -DESCR. 

TO C0LUMN-2-P0S. 
C0LUMN-2-DESCR. 

TO C0LUMN-3-P0S. 
C0LUMN-3-DESCR. 

TO C0LUMN-4-P0S. 
C0LUMN-4-DESCR. 

TO C0LUMN-5-PUS. 
C0LUMN-5-DESCR. 



L5REP0RT 
L5REP0RT 

'•■■•L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REPQRT 
L5REP0RT 
L5REP0RT 
L5 RE PORT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 

•L5 RE PORT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 

•L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5REP0RT 
L5 RE PORT 
L5REP0RT 
L5REP0RT 



GO 

CJ1 



007200 
007210 
007220 
007230 
007240 
007250 
007260 
007270 
007280 
007290 
007300 
007310 
007320 
007330 
0073^0 
007350 
007360 
007370 
007380 
007390 
007^00 
007410 
007420 
007430 
007440 
007450 
007460 
007470 
007480 
007490 
007500 
007510 
007520 
007530 
007540 
007550 
007560 
007570 
007580 
007590 
007600 
007610 
007620 
007630 
007640 
007650 
007660 
007670 
007680 
007690 
007700 
007710 
007720 
007730 
007740 
007750 
007760 
007770 
007780 
007790 



POSITION TO C0LUMN-6-P0S. 

DISPLAY COLUHN-6-0ESCR. 

POSITION TO C0LUMN-7-P0S. 

DISPLAY C0LUMN-7-DESCR. 

POSITION TO C0LUHN-8-P0S. 

DISPLAY COLUMN-8-0ESCR. 

POSITION TO C0LUMN-9-P0S. 

DISPLAY C0LUMN-9-DESCR. 
USE FOR SUBROUTINE CLEAR-TOTALS. 
CLEAR-LEVEL-5. 

MOVE ZERO TO LEVEL-FIVE (1). 

MOVE ZERO TO LEVEL-FIVE (2). 

MOVE ZERO TO LEVEL-FIVE (3). 

MOVE ZERO TO LEVEL-FIVE (4). 

MOVE ZERO TO LEVEL-FIVE (5). 

MOVE ZERO TO LEVEL-FIVE (6). 
CLEAR-LEVEL-4. 

MOVE ZERO TO LEVEL-FOUR (1). 

MOVE ZERO TO LEVEL-FOUR (2). 

MOVE ZERO TO LEVEL-FOUR (3). 

MOVE ZERO TO LEVEL-FOUR (4). 

MOVE ZERO TO LEVEL-FOUR (5). 

MOVE ZERO TO LEVEL-FOUR (6). 



CLEAR-LEVEL-3. 

MOVE ZERO TO LEVEL-THREE 



(1 

(2 

ZERO TO LEVEL-THREE (3 

ZERO TO LEVEL-THREE (4 

ZERO TO LEVEL-THREE 



MOVE ZERO TO LEVEL-THREE 

MOVE 

MOVE 

MOVE 

MOVE ZERO TO LEVEL-THREE 
CLEAR-LEVEL-2. 

MOVE ZERO TO LEVEL-TWO (1). 

MOVE ZERO TO LEVEL-TWO (2). 

MOVE ZERO TO LEVEL-TWO (3). 

MOVE ZERO TO LEVEL-TWO (4). 

MOVE ZERO TO LEVEL-TWO (5). 

MOVE ZERO TO LEVEL-TWO (6). 
CLEAR-LEVEL-1 . 

MOVE ZERO TO LEVEL-ONE (1). 

MOVE ZERO TO LEVEL-ONE <2). 

MOVE ZERO TO LEVEL-ONE (3). 

MOVE ZERO TO LEVEL-ONE (4). 

MOVE ZERO TO LEVEL-ONE (5). 

MOVE ZERO TO LEVEL-ONE (6). 
USE FOR SUBROUTINE PRINT-DESCRIPTION. 

POSITION TO DESCR-POS. 

DISPLAY ALPHA-WORK-AREA. 
USE FOR SUBROUTINE PRINT-REF-1. 

POSITION TO REF-1 -POS 

DISPLAY ACCUM REF-1-PC. 
USE FOR SUBROUTINE PRINT-REF-2. 

POS TO REF-2-P0S. 

DISPLAY ACCUM REF-2-PC. 
USE FOR SUBROUTINE PRINT-AMT1. 

POS TO AMT-1-P0S. 

DISPLAY ACCUM AMT-1-PC. 

ADD ACCUM TO LEVEL-ONE (1). 

ADD ACCUM TO LEVEL-TWO (1). 

ADD ACCUM TO LEVEL-THREE (1). 

ADD ACCUM TO LEVEL-FOUR (1). 
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007800 ADD ACCUM TO LEVEL-FIVE (1). 
007810 USE FOR SUBROUTINE PRINT-AMT2. 

007820 POS TO AMT-2-P0S. 

007830 DISPLAY ACCUM AMT-2-PC. 

007840 ADD ACCUM TO LEVEL-ONE (2). 

007850 ADD ACCUM TO LEVEL-TWO (2). 

007860 ADD ACCUM TO LEVEL-THREE (2). 

007870 ADD ACCUM TO LEVEL-FOUR (2). 

007880 ADD ACCUM TO LEVEL-FIVE (2). 
007890 USE FOR SUBROUTINE PRINT-AMT3. 

007900 POS TO AMT-3-P0S. 

007910 DISPLAY ACCUM AMT-3-PC. 

007920 ADD ACCUM TO LEVEL-ONE (3). 

007930 ADD ACCUM TO LEVEL-TWO (3). 

007940 ADD ACCUM TO LEVEL-THREE (3). 

007950 ADD ACCUM TO LEVEL-FOUR (3). 

007960 ADD ACCUM TO LEVEL-FIVE (3). 
007970 USE FOR SUBROUTINE PR1NT-AMT4. 

007980 POS TO AMT-4-P0S. 

007990 DISPLAY ACCUM AMT-4-PC. 

008000 ADD ACCUM TO LEVEL-ONE (4). 

008010 ADD ACCUM TO LEVEL-TWO (4) . 

008020 ADD ACCUM\TO LEVEL-THREE (4). 

008030 ADD ACCUM TO LEVEL-FOUR (4). 

008040 ADD ACCUM TO LEVEL-FIVE (4). 
008050 USE FOR SUBROUTINE PR1NT-AMT5. 

008060 POS TO AMT-5-P0S. 

008070 DISPLAY ACCUM AMT-5-PC 

008080 ADD ACCUM TO LEVEL-ONE (5). 

008090 ADD ACCUM TO LEVEL-TWO (5). 

008100 ADD ACCUM TO LEVEL-THREE (5). 

008110 ADD ACCUM TO LEVEL-FOUR (5). 

008120 ADD ACCUM TO LEVEL-FIVE (5). 
008130 USE FOR SUBROUTINE PRINT-AMT6. 

008140 POS TO AMT-6-P0S. 

008150 DISPLAY ACCUM AMT-6-PC. 

008160 ADD ACCUM TO LEVEL-ONE (6). 

008170 ADD ACCUM TO LEVEL-TWO (6). 

008180 ADD ACCUM TO LEVEL-THREE (6). 

008190 ADD ACCUM TO LEVEL-FOUR (6). 

008200 ADD ACCUM TO LEVEL-FIVE (6). 
008210 USE FOR SUBROUTINE PRINT-LEVEL-ONE. 
008220 POS TO LEVEL-DESCR-POS. 

008230 DISPLAY LEVEL-1 -DESCR . 

008240 POS TO AMT-1 -TOT-POS. 

008250 MOVE LEVEL-ONE (1) TO ACCUM. 

008260 DISPLAY ACCUM AMT-1-PC. 

008270 POS TO AMT-2-T0T-P0S . 

008280 MOVE LEVEL-ONE (2) TO ACCUM. 

008290 DISPLAY ACCUM AMT-2-PC. 

008300 POS TO AMT-3-T0T-P0S. 

008310 MOVE LEVEL-ONE (3) TO ACCUM. 

008320 DISPLAY ACCUM AMT-3-PC 

008330 POS TO AMT-4-T0T-P0S . 

008340 MOVE LEVEL-ONE (4) TO ACCUM. 

008350 DISPLAY ACCUM AMT-4-PC. 

008360 POS TO AMT-5-T0T-P0S . 

008370 MOVE LEVEL-ONE (5) TO ACCUM. 

008380 DISPLAY ACCUM AMT-5-PC 

008390 POS TO AMT-6-T0T-P0S 
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008400 MOVE LEVEL-ONE (6) TO ACCUM. 

008410 DISPLAY ACCUM AMT-6-PC. 

008420 GO TO CLEAR-LEVEL-1 . 

008430 USE FOR SUBROUTINE PRINT-LEVEL-TWO. 

008440 POS TO LEVEL-DESCR-POS. 

008450 DISPLAY LEVEL-2-DESCR . 

008460 POS TO AMT-1 -TOT-POS. 

008470 MOVE LEVEL-TWO (1) TO ACCUM. 

008480 DISPLAY ACCUM AMT-I-PC. 

008490 POS TO AMT-2 -TOT-POS. 

008500 MOVE LEVEL-TWO (2) TO ACCUM. 

008510 DISPLAY ACCUM AMT-2-PC. 

008520 POS TO AMT-3-T0T-P0S. 

008530 MOVE LEVEL-TWO (3) TO ACCUM. 

008540 DISPLAY ACCUM AMT-3-PC. 

008550 POS TO AMT-4-T0T-P0S. 

008560 MOVE LEVEL-TWO (4) TO ACCUM. 

008570 DISPLAY ACCUM AMT-4-PC. 

008580 POS TO AMT-5-T0T-P0S. 

008590 MOVE LEVEL-TWO (5) TO ACCUM. 

008600 DISPLAY ACCUM AMT-5-PC. 

008610 POS TO AMT-6-T0T-P0S. 

008620 MOVE LEVEL-TWO (6) TO ACCUM. 

008630 DISPLAY ACCUM AMT-6-PC. 

008640 GO TO CLEAR-LEVEL-2 . 

008650 USE FOR SUBROUTINE PRINT-LEVEL-THREE. 

008660 POS TO LEVEL-DESCR-POS. 

008670 DISPLAY LEVEL-3- DESCR . 

008680 POS TO AMT-1 -TOT-POS . 

008690 MOVE LEVEL-THREE (1) TO ACCUM. 

008700 DISPLAY ACCUM AMT-I-PC. 

008710 POS TO AMT-2-T0T-P0S. 

008720 MOVE LEVEL-THREE (2) TO ACCUM. 

008730 DISPLAY ACCUM AMT-2-PC. 

008740 POS TO AMT-3-T0T-P0S . 

008750 MOVE LEVEL-THREE (3) TO ACCUM. 

008760 DISPLAY ACCUM AMT-3-PC. 

008770 POS TO AMT-4-T0T-P0S. 

008780 MOVE LEVEL-THREE (4) TO ACCUM. 

008790 DISPLAY ACCUM AMT-4-PC. 

008800 POS TO AMT-5-T0T-POS. 

008810 MOVE LEVEL-THREE (5) TO ACCUM. 

008820 DISPLAY ACCUM AMT-5-PC. 

008830 POS TO AMT-6-T0T-P0S 

008840 MOVE LEVEL-THREE (6) TO ACCUM. 

008850 DISPLAY ACCUM AMT-6-PC. 

008860 GO TO CLEAR-LEVEL-3. 

008870 USE FOR SUBROUTINE PRI NT- LEVEL-FOUR . 

008880 POS TO LEVEL-DESCR-POS. 

008890 DISPLAY LEVEL-4-DESCR . 

008900 POS TO AMT-1 -TOT-POS. 

008910 MOVE LEVEL-FOUR (1) TO ACCUM. 

008920 DISPLAY ACCUM AMT-I-PC. 

008930 POS TO AMT-2-T0T-P0S . 

008940 MOVE LEVEL-FOUR (2) TO ACCUM. 

008950 DISPLAY ACCUM AMT-2-PC. 

008960 POS TO AMT-3-T0T-P0S. 

008970 MOVE LEVEL-FOUR (3) TO ACCUM. 

008980 DISPLAY ACCUM AMT-3-PC. 

008990 POS TO AMT-4-TOT-P0S. 
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009000 HOVE LEVEL-FOUR (4) TO ACCUM. 

009010 DISPLAY ACCUM AMT-4-PC. 

009020 POS TO AMT-5-T0T-P0S. 

009030 MOVE LEVEL-FOUR (5) TO ACCUM. 

009040 DISPLAY ACCUM AMT-5-PC. 

009050 POS TO AMT-6-T0T-P0S. 

009060 MOVE LEVEL-FOUR (6) TO ACCUM. 

009070 DISPLAY ACCUM AMT-6-PC. 

009080 GO TO CLEAR-LEVEL-4. 

009090 USE FOR SUBROUTINE PRINT-LEVEL-FIVE. 

009100 POS TO LEVEL-DESCR-POS. 

009110 DISPLAY LEVEL-5-DESCR . 

009120 POS TO AMT-1-T0T-P0S. 

009130 MOVE LEVEL-FIVE (1) TO ACCUM. 

009140 DISPLAY ACCUM AMT-1-PC. 

009150 POS TO AMT-2-T0T-P0S. 

009160 MOVE LEVEL-FIVE (2) TO ACCUM. 

009170 DISPLAY ACCUM AMT-2-PC. 

009180 POS TO AMT-3-T0T-P0S. 

009190 MOVE LEVEL-FIVE (3) TO ACCUM. 

009200 DISPLAY ACCUM AMT-3-PC. 

009210 POS TO AMT-4-T0T-PQS. ' 

009220 MOVE LEVEL-FIVE (4) TO ACCUM. 

009230 DISPLAY ACCUM AMT-4-PC. 

009240 POS TO AMT-5-T0T-P0S. 

009250 MOVE LEVEL-FIVE (5) TO ACCUM. 

009260 DISPLAY ACCUM AMT-5-PC. 

009270 POS TO AMT-6-T0T-P0S 

009280 MOVE LEVEL-FIVE (6) TO ACCUM. 

009290 DISPLAY ACCUM AMT-6-PC. 

009300 GO TO CLEAR-LEVEL-5. 

009310 USE FOR SUBROUTINE READ-PUNCHED-CARD . 

009320 REAO PUNCHED-CARD- IN. 

009330 USE FOR SUBROUTINE READ-LEDGER- IN-CONSOLE. 

009340 READ LEDGER-IN ON ERROR GO TO REAO-ERROR-ROUT I NE . 

009350 USE FOR SUBROUTINE READ-LEDGER- IN. 

009360 READ LEDGER-IN-AR ON ERROR GO TO READ-ERROR-ROUTINE. 

009370 EXIT. 

009380 READ-ERROR-ROUTINE. 

009390 ENABLE PK 1 . 

009400 MOVE 1 TO RCV-RDY. 

009410 READ LEDGER-IN ON ERROR GO TO READ-ERROR-ROUTINE. 

009420 MOVE TO RCV-RDY. 

009430 EXIT. 

009440 PK1 -INDEX-ROUTINE. 

009450 POSITION TO DESCR-POS. 

009460 ACCEPT 30 CHARACTERS FROM KEYBOARD-PRNTR. 

009470 IF REFERENCES IS ZERO GO TO INDEX-AMT1 . 

009480 POS TO REF-1-P0S. 

009490 ACCEPT INTO ACCUMULATOR REF-1-PC FROM KEYBOARD-PRNTR. 

009500 MOVE REFERENCES TO ACCUMULATOR . 

009510 IF ACCUMULATOR (1) LESS THAN 2 THEN EXIT. 

009520 POS TO REF-2-P0S. 

009530 ACCEPT INTO ACCUMULATOR REF-2-PC FROM KEYBOARD-PRNTR. 

009540 INDEX-AMT1. 

009550 POSITION TO AMT-1-POS. 

009560 ACCEPT INTO ACCUMULATOR AMT-1-PC. 

009570 PERFORM PRINT-AMT1 .. 

009580 MOVE AMOUNTS TO ACCUMULATOR. 

009590 IF ACCUMULATOR (1) LESS THAN 2 THEN EXIT. 
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009600 

009610 

009620 

009630 

009640 

009650 

009660 

009670 

009680 

009690 

009700 

009710 

009720 

009730 

009740 

0097 50 

009760 

009770 

009780 

009790 

009800 

009810 

009820 

009830 

009840* 

009850 

009860 

009870 

009880 

02601 

02602 



POS TO AMT-2-P0S. 

ACCEPT INTO ACCUMULATOR AMT-2-PC. 
PERFORM PRINT-AMT2. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUMULATOR (1) LESS THAN 3 THEN EXIT. 
POS TO AMT-3-P0S. 

ACCEPT INTO ACCUMULATOR AMT-3-PC. 
PERFORM PRINT-AMT3. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUMULATOR (1) LESS THAN 4 THEN EXIT. 
POS TO AMT-4-P0S. 

ACCEPT INTO ACCUMULATOR AMT-4-PC. 
PERFORM PRINT-AMT4. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUMULATOR (1) LESS THAN 5 THEN EXIT. 
POS TO AMT-5-P0S. 

ACCEPT INTO ACCUMULATOR AMT-5-PC. 
PERFORM PRINT-AMT5. 
MOVE AMOUNTS TO ACCUMULATOR. 
IF ACCUM (1) LESS THAN 6 THEN EXIT. 
POS TO AMT-6-P0S. 

ACCEPT INTO ACCUMULATOR AMT-6-PC. 
PERFORM PRINT-AMT6. 
END DECLARATIVES. 

INITIALIZATION. 

MOVE 2 TO REFERENCES. 

MOVE 6 TO AMOUNTS. 

PERFORM CLEAR-TOTALS. 

STOP RUN. 
END-OF-JOB. 
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